Arctic explorer Jean-Claude Coulerre in anticipation of the sun's reappearance

Description

See "HP-15C Advanced Functions Handbook" page 13 ff. for the description of this example.

Pressing GSB 1 loads the coefficients into the corresponding storage registers:



a₄ =  4.2725×10⁻⁸

a₃ = -1.9931×0⁻⁵

a₂ =  1.0229×10⁻³

a₁ =  3.7680×10⁻¹

a₀ = -8.1806

Program Resources

Labels

Name	Description
A	Calculate the date
1	Load coefficients to storage registers

Storage Registers

Name	Description
0	a0
1	a1
2	a2
3	a3
4	a4

Program

Line	Display	Key Sequence	Line	Display	Key Sequence	Line	Display	Key Sequence
000			023	26	EEX	046	16	CHS
001	42.21.11	f LBL A	024	8	8	047	44 2	STO 2
002	45 4	RCL 4	025	16	CHS	048	3	3
003	20	×	026	44 4	STO 4	049	48	.
004	45 3	RCL 3	027	1	1	050	7	7
005	40	+	028	48	.	051	6	6
006	20	×	029	9	9	052	8	8
007	45 2	RCL 2	030	9	9	053	0	0
008	40	+	031	3	3	054	26	EEX
009	20	×	032	1	1	055	1	1
010	45 1	RCL 1	033	16	CHS	056	16	CHS
011	40	+	034	26	EEX	057	44 1	STO 1
012	20	×	035	5	5	058	2	2
013	45 0	RCL 0	036	16	CHS	059	48	.
014	40	+	037	44 3	STO 3	060	8	8
015	43 32	g RTN	038	1	1	061	8	8
016	42.21. 1	f LBL 1	039	48	.	062	0	0
017	4	4	040	0	0	063	6	6
018	48	.	041	2	2	064	16	CHS
019	2	2	042	2	2	065	44 0	STO 0
020	7	7	043	9	9	066	43 32	g RTN
021	2	2	044	26	EEX
022	5	5	045	3	3